home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / yacc / occam.lha / occam / test2 < prev    next >
Text File  |  1989-08-22  |  221b  |  14 lines
  1. VAR volume:
  2. SEQ
  3.   volume:=0
  4.   WHILE TRUE
  5.     ALT
  6.       louder?ANY
  7.          SEQ
  8.            volume:=volume+1
  9.            amplifier!volume
  10.       softer?ANY
  11.          SEQ
  12.            volume:=volume-1
  13.            amplifier!volume
  14.